home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Amiga Classic Collection
/
The Amiga Classic Collection - Disc 1.iso
/
Education
/
ED16-CrosswordCreator.DMS
/
ED16-CrosswordCreator.adf
/
Source
/
CrossFont.mod
< prev
next >
Wrap
Text File
|
1991-07-13
|
7KB
|
147 lines
IMPLEMENTATION MODULE CrossFont;
(* exclusive available font - generated with M2Amiga Report FontConverter *)
FROM SYSTEM IMPORT CAST, ASSEMBLE, ADR;
FROM GraphicsD IMPORT TextFontPtr, TextFont, FontFlagSet, FontStyleSet;
FROM Heap IMPORT Allocate;
PROCEDURE Data; (*$ EntryExitCode := FALSE *)
BEGIN
ASSEMBLE(
DC.W $00063,$03367,$0D99C,$0180D,$082D1,$08000,$00006,$07861,
$0E3C3,$09F9E,$07E78,$0F000,$00300,$00C3C,$000F3,$0E3CF,
$09FBF,$03ECC,$0F3F6,$06C10,$0B37C,$079F1,$0F7EC,$0D9B3,
$066CD,$0F8F6,$00F06,$00018,$0F998,$0318C,$00C2A,$09F0F,
$08C18,$06FE6,$0061C,$0CD98,$0C3E8,$04F0D,$0FEFC,$0F0C7,
$00E0C,$0337F,$000C1,$0E6C3,$00000,$00063,$037FD,$08336,
$03018,$0C1E1,$08000,$0000C,$0CCE3,$03667,$09830,$006CD,
$09800,$0061F,$08666,$0019B,$0366C,$0D830,$060CC,$06036,
$0CC19,$0BB66,$0CD9B,$0018C,$0D9B3,$03CCC,$030C3,$0030F,
$0000C,$0CD98,$06186,$01F95,$03198,$0D80C,$0FFE0,$01F36,
$07998,$0C780,$01B1B,$00601,$099E1,$08318,$03336,$001C3,
$03360,$00000,$00060,$00367,$0861D,$00018,$0C3F7,$0E01F,
$08018,$0CC60,$060CD,$09F3E,$00C78,$0F983,$00C00,$0030C,
$039FB,$0E60C,$0DF3E,$06EFC,$06037,$08C1F,$0BF7C,$0CDF1,
$0E18C,$0D9BF,$01878,$060C1,$08319,$08000,$0F998,$0E187,
$0032A,$08331,$0998C,$0CFE6,$03678,$0CCF0,$00240,$00F36,
$00000,$0F0C3,$00600,$03336,$030C1,$0E1B6,$00000,$00000,
$007F6,$0CC36,$00018,$0C1E1,$08000,$00030,$0CC61,$0866F,
$0C1B3,$018CC,$01800,$0061F,$08600,$0019B,$0366C,$0D830,
$066CC,$06336,$0CC19,$0B760,$0DDB0,$0318C,$0CF33,$03C30,
$0C0C0,$0C300,$00000,$0CD98,$06186,$00015,$06331,$09BD8,
$00FE6,$01F30,$079F8,$0C1E0,$0001B,$00000,$00007,$08300,
$03F36,$001E0,$0036C,$0C000,$00060,$0036F,$0999B,$0000D,
$082D1,$08600,$01860,$078F3,$0F3C1,$09F1E,$01878,$0F183,
$00300,$00C18,$0019B,$0E3CF,$09FB0,$03ECC,$0F1E6,$06FD9,
$0B360,$07D9B,$0E187,$08621,$06631,$0F8F0,$06F00,$03F00,
$0CCF8,$0318C,$0002A,$0BE1F,$00E70,$0CFE6,$0067E,$0CC60,
$0C7C0,$01F8D,$08000,$001E0,$00E00,$03736,$00003,$0F6C7,
$08000,$00000,$00000,$00000,$00000,$00000,$00C00,$00000,
$00000,$00000,$00000,$00000,$00006,$00000,$00000,$00000,
$00000,$00000,$00000,$00000,$00000,$00000,$00000,$00000,
$00000,$00000,$00000,$00000,$00000,$00000,$00000,$00015,
$00000,$00000,$00FE0,$00000,$00000,$00000,$00000,$00000,
$00000,$00000,$03000,$00000,$00000,$00000
END);
END Data;
PROCEDURE Loc; (*$ EntryExitCode := FALSE *)
BEGIN
ASSEMBLE(
DC.W $00000,$00007,$00007,$00007,$0000E,$00007,$00015,$00007,
$0001C,$00007,$00023,$00007,$0002A,$00007,$00031,$00007,
$00038,$00007,$0003F,$00007,$00046,$00007,$0004D,$00007,
$00054,$00007,$0005B,$00007,$00062,$00007,$00069,$00007,
$00070,$00007,$00077,$00007,$0007E,$00007,$00085,$00007,
$0008C,$00007,$00093,$00007,$0009A,$00007,$000A1,$00007,
$000A8,$00007,$000AF,$00007,$000B6,$00007,$000BD,$00007,
$000C4,$00007,$000CB,$00007,$000D2,$00007,$000D9,$00007,
$000E0,$00007,$000E7,$00007,$000EE,$00007,$000F5,$00007,
$000FC,$00007,$00103,$00007,$0010A,$00007,$00111,$00007,
$00118,$00007,$0011F,$00007,$00126,$00007,$0012D,$00007,
$00134,$00007,$0013B,$00007,$00142,$00007,$00070,$00007,
$00149,$00007,$00150,$00007,$00157,$00007,$0015E,$00007,
$00165,$00007,$0016C,$00007,$00173,$00007,$0017A,$00007,
$00181,$00007,$00188,$00007,$0018F,$00007,$00196,$00007,
$0019D,$00007,$001A4,$00007,$001AB,$00007,$001B2,$00007,
$001B9,$00007,$000E7,$00007,$000EE,$00007,$000F5,$00007,
$000FC,$00007,$00103,$00007,$0010A,$00007,$00111,$00007,
$00118,$00007,$0011F,$00007,$00126,$00007,$0012D,$00007,
$00134,$00007,$0013B,$00007,$00142,$00007,$00070,$00007,
$00149,$00007,$00150,$00007,$001C0,$00007,$0015E,$00007,
$00165,$00007,$001C7,$00007,$00173,$00007,$0017A,$00007,
$00181,$00007,$00188,$00007,$0018F,$00007,$001CE,$00007,
$001D5,$00007,$001DC,$00007,$001E3,$00007,$001EA,$00007,
$001F1,$00007,$001F8,$00007,$001FF,$00007,$00206,$00007,
$0020D,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00000,$00007,$0021B,$00007,$00222,$00007,$00229,$00007,
$00230,$00007,$00237,$00007,$0023E,$00007,$00245,$00007,
$0024C,$00007,$00214,$00007,$00253,$00007,$0025A,$00007,
$00261,$00007,$0005B,$00007,$00214,$00007,$00268,$00007,
$0026F,$00007,$00276,$00007,$0027D,$00007,$00284,$00007,
$0028B,$00007,$00292,$00007,$00299,$00007,$002A0,$00007,
$00054,$00007,$002A7,$00007,$002AE,$00007,$002B5,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$002BC,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007,
$00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007
END);
END Loc;
PROCEDURE CreateFont(): TextFontPtr;
VAR font: TextFontPtr;
BEGIN
Allocate(font,SIZE(TextFont));
IF font # NIL THEN
WITH font^ DO
ySize := 00006H;
xSize := 00007H;
baseline := 00006H;
boldSmear := 00001H;
accessors := 00001H;
modulo := 0005AH;
loChar := CHR(00020H);
hiChar := CHR(000FFH);
style := CAST(FontStyleSet,SHORTCARD(00000H));
flags := CAST(FontFlagSet,SHORTCARD(00042H));
charData := ADR(Data);
charLoc := ADR(Loc);
charSpace := NIL;
charKern := NIL;
END;
END;
RETURN font;
END CreateFont;
END CrossFont.